Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/HYP/J-M/MegaHome II.cpt/MegaHome II/MegaHome™ II 1.1/background_6480.xml

Extensible Markup Language | 1991-06-30 | 21KB | 458 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>6480</id>
    <filler1>0</filler1>
    <bitmap>BMAP_5496.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_7199.css" />
    <part>
        <id>34</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>30</left>
            <top>24</top>
            <right>508</right>
            <bottom>323</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>deselect (ii)</name>
        <script>on mouseUpdoADeselectend mouseUp</script>
    </part>
    <part>
        <id>6</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>202</left>
            <top>321</top>
            <right>225</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>26402</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Prev</name>
        <script>on mouseUpvisual effect wipe right fastgo to prev card in this bkgndend mouseUp</script>
    </part>
    <part>
        <id>7</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>316</left>
            <top>321</top>
            <right>339</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1832</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Next</name>
        <script>on mouseUpvisual effect wipe left fastgo to next card in this bkgndend mouseUp</script>
    </part>
    <part>
        <id>8</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>293</left>
            <top>325</top>
            <right>319</right>
            <bottom>337</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Page</name>
        <script></script>
    </part>
    <part>
        <id>29</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>74</left>
            <top>266</top>
            <right>205</right>
            <bottom>285</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>OPENF</name>
        <script></script>
    </part>
    <part>
        <id>37</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>143</left>
            <top>325</top>
            <right>198</right>
            <bottom>340</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Open Stack</name>
        <script>on mouseUpdoMenu "Open Stack..."end mouseUp</script>
    </part>
    <part>
        <id>38</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>343</left>
            <top>325</top>
            <right>392</right>
            <bottom>340</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Open App</name>
        <script>on mouseUpdoMenu "Open Application…"end mouseUp</script>
    </part>
    <part>
        <id>39</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>227</left>
            <top>325</top>
            <right>304</right>
            <bottom>337</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <textHeight>12</textHeight>
        <name>kard</name>
        <script></script>
    </part>
    <part>
        <id>40</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>488</left>
            <top>24</top>
            <right>504</right>
            <bottom>38</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Home</name>
        <script>on mouseUpgo firstend mouseUp</script>
    </part>
    <part>
        <id>42</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>487</left>
            <top>37</top>
            <right>503</right>
            <bottom>53</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Search Paths</name>
        <script>on mouseUpgo card"stacks"end mouseUp</script>
    </part>
    <part>
        <id>44</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>3</left>
            <top>24</top>
            <right>31</right>
            <bottom>323</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>clean</name>
        <script>on mouseUpif trapDoubleClick() is true then doACleanUp else doADeselectend mouseUp</script>
    </part>
    <part>
        <id>45</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>490</left>
            <top>66</top>
            <right>502</right>
            <bottom>81</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>SAFE</name>
        <script>on mouseUpgo card"Ft. Knox‚Ñ¢ Open"end mouseUp</script>
    </part>
    <part>
        <id>47</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>7</left>
            <top>312</top>
            <right>58</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Coords</name>
        <script>on mouseUpif trapDoubleClick(the rect of me) is true then coordinatorend mouseUpon mouseStillDowndragTargetend mouseStillDown</script>
    </part>
    <part>
        <id>48</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>439</left>
            <top>324</top>
            <right>510</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Clock</name>
        <script>on mouseUpif trapDoubleClick(the rect of me) is true thenput the date into mewait 1 secend ifend mouseUpon mouseStillDowndragTargetend mouseStillDown</script>
    </part>
    <content>
        <layer>background</layer>
        <id>39</id>
        <text>Applications</text>
    </content>
    <name>applications</name>
    <script>on openBackgroundset the cursor to 4global alock screencreate menu "Manager"if a is empty then shortMgr else longMgrshow menuBarend openBackgroundon closeBackgroundif there is a menu "Manager" then delete menu "Manager"end closeBackgroundon doMenu itum,menuNameif menuName is not "Manager" then pass doMenuput the number of btns into xif itum is "Dragging" then  --DRAGGINGglobal drput not dr into drput dr into line 8 of card field "prefs" of card 1else if itum is "Mouse Coordinates" then  --COORDINATESglobal coordsput not coords into coordsput coords into line 7 of card field "prefs" of card 1else if itum is "Launch" then  --OPENglobal a,aago card aaif "doBtnScript" is in the script of card button a thensend doBtnScript to card button aexit doMenuend ifput the short name of btn a into kif "--path: " is in line 1 of the script of button kthenput line 1 of the script of button k into kdelete char 1 to 8 of kend ifdoADeselectopen kexit doMenuelse if itum is "Rename…" then  --RENAMEglobal a,aago card aaput the short name of btn a into oldNameask"New name for selected link:" with oldNameput it into ttif tt is empty then exit doMenuset the name of btn a to ttanswer "Change Finder name also?" with "Yes" or "No"if it is "Yes" thenanswer file "Please locate this application." of type "APPL"if it is empty then exit doMenuput renameFile (it,tt) into erCif erC≠0 thenbeep 2answer"Couldn’t change actual name." with "Cancel"exit doMenuend ifend ifput the script of btn a into theScriptif "--path: " is in line 1 of theScriptthenput "--path: "&pathName(it)&tt into line 1 of theScriptset the script of btn a to theScriptend ifexit doMenuelse if itum is "New Icon…" then  -- NEW ICONglobal aa,ago card aaask"New icon (name or #) for selected link:" with the icon of ¬btn aif it is empty then exit doMenuif okIcon(it) is false thenbeep 2answer "That icon does not exist." with "Cancel"exit doMenuend ifset the icon of btn a to itexit doMenuelse if itum is "New Card" then  --NEW CARDset the cursor to 4lock screenset the lockMessages to truego to last cd in this bgput fld "page" into PFsend "doMenu New Card" to hyperCardput "Mouse:"&return&"0,0" into field "coords"put PF+1 into fld "page"send openCard to this cdexit doMenuelse if itum is "Remove Card" then --DELETE CARDbeep 2answer"Do you really want to delete this entire card?" with "OK" or¬"Cancel"if it is "Cancel" then exit doMenuset the cursor to 4lock screenset the lockMessages to truedoMenu"delete card"send "go prev" to hyperCardif fld "page" is 1then set the icon of bg btn "prev" to "√Grey Prev Arrow"else set the icon of bg btn "prev" to "Prev Arrow"if fld "page"≥the number of cds of this bgthen put the number of cds of this bg into fld "page"if fld "page"=the number of cds of this bgthen set the icon of bg btn "next" to "√Grey Next Arrow"else set the icon of bg btn "next" to "Next Arrow"else if itum is "Clean Up All" then  -- CLEAN UP ALLdoACleanUpexit doMenuelse if itum is "Clean Up" thenglobal aa,ago cd aadoACleanUp(a)exit doMenuelse if itum is "Place…" thenglobal a,aago card aaput the number of btns into x -- DO NOT DELETEask "Place selected button at what position? (1-"&x&")"¬with a--if (it is a) or (it is empty) then exit doMenuif it<1 or it>x thenbeepexit doMenuend ifset the cursor to 4put the id of btn a into sseellset the lockScreen to trueput the userLevel into ssulif ssul<5 then set the userLevel to 5select btn aif it<a thenrepeat until the number of btn id (sseell)=itdoMenu "Send Farther"end repeatelserepeat until the number of btn id (sseell)=itdoMenu "Bring Closer"end repeatend ifput it into selif ssul<5 then set the userLevel to ssulchoose browse tooldoACleanUp(a)unlock screenput "If the button is not visible, try doing a CLEAN UP ALL."get the mouseLocwait until the mouseLoc is not ithide msgexit doMenuelse if itum is "Deselect" then  -- DESELECTdoADeselectexit doMenuelse if itum is "Add Application…" then  -- ADD APPput (the shiftKey is "down") into shKeylock screenput fileName("APPL","Choose the application to add.") into appFileif appFile = empty then exit doMenuset cursor to 4put the userLevel into sLif the userLevel<>5 then set the userLevel to 5put buttonName(appFile) into appNameput GetAppIcon(appFile,appName) into iconNoif iconNo = "0" then exit doMenuupdateResForkdoMenu "New Button"put the id of button "New Button" into appIDset name of button "New Button" to appNameset icon of button id appID to iconNoset style of button id appID to transparentif shKey is falsethenset the script of card button id appID to emptyelseset the script of card button id appID to "--path: "&appFileend ifput pathName(appFile) into aCif aC&return is not in field "paths" of card "applications" thenif (last char of (field "paths" of card "applications")) is not return¬then put return after field"paths" of card "applications"put aC&return after field "paths" of card "applications"global applicationsput field "paths" of card "applications" into applicationsend ifchoose browse toolif the userLevel<>5 then set the userLevel to sLdoACleanUp (the number of buttons)else if itum is "Remove Link" then  --REMOVE AN APPLICATIONglobal a,aago card aabeep 2answer"Do you really want to remove this link?" with "OK"¬or "Cancel"if it is "OK" thenpush cardlock screenget adoADeselectput it into aset the cursor to 4put the userLevel into sLif the userLevel<>5 then set the userLevel to 5select btn adoMenu"Clear Button"choose browse toolif the userLevel<>5 then set the userLevel to sLunlock screenput empty into aend ifexit doMenuend ifupdMenusend doMenuon openCardif fld "page" is 1then set the icon of bg btn "prev" to "√Grey Prev Arrow"else set the icon of bg btn "prev" to "Prev Arrow"if fld "page"≥the number of cds of this bgthen put the number of cds of this bg into fld "page"if fld "page"=the number of cds of this bgthen set the icon of bg btn "next" to "√Grey Next Arrow"else set the icon of bg btn "next" to "Next Arrow"updMenusend openCardon idleglobal coordsput the short time into field "Clock"if coords is true and the shiftKey is upthen put the mouseLoc into line 2 of field "Coords"else exit idleend idleon updMenusglobal dr,coords,maxBtnsif there is no menu "Manager" then exit updMenusset the checkMark of menuItem "Dragging" of menu "Manager" to drset the checkMark of menuItem "Mouse Coordinates" of menu "Manager" to coordsset the enabled of menuItem "Remove Card" of menu "Manager" to (fld "page" is not 1)set the enabled of menuItem "Add Application…" of menu "Manager" to (the number of btns<maxBtns)end updMenuson longMgrif there is no menu "Manager" then exit longMgrput "Dragging,Mouse Coordinates,-,Launch,-,Rename…,New Icon…,-,Add Application…,Remove Link,-,New Card,Remove Card,-,Clean Up,Clean Up All,Place…,-,Deselect"¬into menu "Manager"updMenusend longMgron shortMgrif there is no menu "Manager" then exit shortMgrput "Dragging,Mouse Coordinates,-,Add Application…,-,New Card,Remove Card,-,Clean Up All"¬into menu "Manager"updMenusend shortMgron mouseUpif "Card Button" is not in the long name of the target then pass mouseUpif the style of the target is not "Transparent" then pass mouseUpglobal a,aadoADeselectif trapDoubleClick(the rect of the target) is not true thenput the number of the target into aput the number of this card into aaset the hilite of the target to truelongMgrexit mouseUpelseif "doBtnScript" is in the script of the target thensend doBtnScript to the targetexit mouseUpend ifput the short name of the target into kif "--path: " is in line 1 of the script of button kthenput line 1 of the script of button k into kdelete char 1 to 8 of kend ifif k is not "HyperCard" then open kend ifend mouseUpon mouseStillDowndragTargetend mouseStillDown</script>
</background>